home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 22 / Cream of the Crop 22.iso / program / ctlib100.zip / INSTALL.LZH / CTTYPES.INT < prev    next >
Text File  |  1996-10-12  |  4KB  |  125 lines
  1. {**************************************************************************}
  2. {*  BitSoft Development, L.L.C.                                           *}
  3. {*  Copyright (C) 1995, 1996 BitSoft Development, L.L.C.                  *}
  4. {*  All rights reserved.                                                  *}
  5. {*  Containers Library types and constants unit                           *}
  6. {*  Version 1.1.7                                                         *}
  7. {**************************************************************************}
  8.  
  9. unit ctTypes;
  10.  
  11. interface
  12.  
  13. const
  14.   MaxFieldName = 30;
  15.  
  16. const
  17.   idStdArray             = 20250;
  18.   idStreamStdArray       = Succ(idStdArray);
  19.   idEmsStdArray          = Succ(idStreamStdArray);
  20.   idStreamStdObjectArray = Succ(idEmsStdArray);
  21.   idEmsStdObjectArray    = Succ(idStreamStdObjectArray);
  22.   idStreamObjectArray    = Succ(idEmsStdObjectArray);
  23.   idEmsObjectArray       = Succ(idStreamObjectArray);
  24.  
  25. const
  26.   idStreamCollection            = Succ(idEmsObjectArray);
  27.   idEmsCollection               = Succ(idStreamCollection);
  28.   idStreamUnSortedStrCollection = Succ(idEmsCollection);
  29.   idEmsUnSortedStrCollection    = Succ(idStreamUnSortedStrCollection);
  30.   idStreamSortedCollection      = Succ(idEmsUnSortedStrCollection);
  31.   idEmsSortedCollection         = Succ(idStreamSortedCollection);
  32.   idStreamStringCollection      = Succ(idEmsSortedCollection);
  33.   idEmsStringCollection         = Succ(idStreamStringCollection);
  34.  
  35. const
  36.   idList             = Succ(idEmsStringCollection);
  37.   idSortedList       = Succ(idList);
  38.   idStringListNode   = Succ(idSortedList);
  39.   idStringDoubleNode = Succ(idStringListNode);
  40.  
  41. const
  42.   idArrayStack       = Succ(idStringDoubleNode);
  43.   idStreamStack      = Succ(idArrayStack);
  44.   idEmsStack         = Succ(idStreamStack);
  45.   idLinkedStack      = Succ(idEmsStack);
  46.  
  47. const
  48.   idQueue            = Succ(idLinkedStack);
  49.   idDoubleEndedQueue = Succ(idQueue);
  50.  
  51. const
  52.   idBinaryTree       = Succ(idDoubleEndedQueue);
  53.   idAVLTree          = Succ(idBinaryTree);
  54.   idStringBinaryNode = Succ(idAVLTree);
  55.   idStringAVLNode    = Succ(idStringBinaryNode);
  56.  
  57. const
  58.   idField          = Succ(idStringAVLNode);
  59.   idFieldStructure = Succ(idField);
  60.  
  61. const
  62.   idImsScrollBar          = Succ(idFieldStructure);
  63.   idImsListViewer         = Succ(idImsScrollBar);
  64.   idSequenceListBox       = Succ(idImsListViewer);
  65.   idSortedSequenceListBox = Succ(idSequenceListBox);
  66.  
  67. const
  68.   idCollectionStack = Succ(idSortedSequenceListBox);
  69.  
  70. const
  71.   idHugeCollection            = Succ(idCollectionStack);
  72.   idHugeSortedCollection      = Succ(idHugeCollection);
  73.   idHugeStringCollection      = Succ(idHugeSortedCollection);
  74.   idHugeUnSortedStrCollection = Succ(idHugeStringCollection);
  75.  
  76. const
  77.   idSortedStdArray          = Succ(idHugeUnSortedStrCollection);
  78.   idStdObjectArray          = Succ(idSortedStdArray);
  79.   idSortedStdObjectArray    = Succ(idStdObjectArray);
  80.   idHugeArray               = Succ(idSortedStdObjectArray);
  81.   idSortedHugeArray         = Succ(idHugeArray);
  82.   idHugeObjectArray         = Succ(idSortedHugeArray);
  83.   idSortedHugeObjectArray   = Succ(idHugeObjectArray);
  84.   idResizableStdArray       = Succ(idSortedHugeObjectArray);
  85.   idResizableStdObjectArray = Succ(idResizableStdArray);
  86.   idResizableHugeArray       = Succ(idResizableStdObjectArray);
  87.   idResizableHugeObjectArray = Succ(idResizableHugeArray);
  88.  
  89. const
  90.   idHugeCollectionStack = Succ(idResizableHugeObjectArray);
  91.   idHugeArrayStack      = Succ(idHugeCollectionStack);
  92.  
  93. const
  94.   idDoubleList = Succ(idHugeArrayStack);
  95.   idSortedDoubleList = Succ(idDoubleList);
  96.  
  97.  
  98. type
  99.   PFieldName = ^TFieldName;
  100.   {$ifdef Windows}
  101.   TFieldName = array[0..MaxFieldName] of Char;
  102.   {$else}
  103.   TFieldName = string[MaxFieldName];
  104.   {$endif Windows}
  105.  
  106. type
  107.   PMemBlockInfo = ^TMemBlockInfo;
  108.   TMemBlockInfo = record
  109.     MemBlock : Pointer;
  110.     Size : LongInt;
  111.   end;
  112.  
  113. type
  114.   PParentNode = ^TParentNode;
  115.   TParentNode = record
  116.     ID : LongInt;
  117.     ChildIndex : LongInt;
  118.   end;
  119.  
  120. const
  121.   PointerSize = SizeOf(Pointer);
  122.  
  123. implementation
  124. end.
  125.